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: 
3; Version: *v04-000' 
MAAARABAAASAAALALALALALLELAELLLLELASLELESA SALES ALAS ESE SASAE LEELA SESE SESE CESSES aS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, | MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* 
** * 
:* ® 
-* ® 
:* ® 
:* ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
ft ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR “ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
** ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
-* ® 
** ® 
** ® 
-* ® 
** *® 
-* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


° 
4 
: 
os 
. 
3 
o 
» 
4 
° 
° 
: 
o 
o 
° 
° 
2 
4 
e 
° 
A 
. 
+ 


PARRA ARASAAAALASLALA LASALLE EAL ALAS SSSA S AREER ES ERE RRR REESE SRE EASES TASS SS 


; MODIFIED BY: 


v03-003 LDJ0002 y D. Jones 11-Apr-1983 
Replaced the PRIV™ mire with one which uses SSETPRV. 
v03-002 Losvon! Larry D. Jones 16-Jun-1981 


Modified all references to RTL” routines to have G* address 
specification for the new Linker. 


v03-001 TLC0001 Thomas Cafarella 22-Jan-1981 
Modified macros COND, pecope and TESTSERV to remove trailing 
comma failures caused by MACRO=32 changes. 


-MACRO $QUOTA NAME=LISTEND, VALUE=0 
-BYTE PQLS$_ "NAME 
-LONG VALUE 
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+ 
The SSHR_MESSAGES macro defines voc ti cy~spect ttc message codes 
which are based on the system-wide shared message codes. 


SSHR_MESSAGES name, code, <<msg,severity>, ... > 


where: 
name'' is the name of the be Mt A oe COPY) 


‘code’ is the corres. facility code (e.g., 103) 
‘msg’ is the name of the shared message (e.g., BEGIN) 
severity’ is the desired message severity (e.g., 1, 0, 2, 4) 


. 
° 
. 
° 
. 
co 
. 
° 
a 
. 
° 
. 
° 
. 
e 
. 
° 
° 
. 
° 
‘= 
° 


~MACRO SSHR_MESSAGES NAME,CODE,MSGCODES 
IF NDF ,SHRSK_SHRDEF ; issue $SHRDEF if not done yer 
SHREK SHRDEF = 1; define symbol to indic $SHRDEF done 


; define shared message codes 
-ENDC 


- IRP MSGPAIR, <'MSGCODES> 
— SSHRMSG_COD "NAME', ‘CODE', MSGPAIR 


-ENDM 
-MACRO $SHRMSG_COD NAME, CODE, MSG, SEVERITY 


IF IDN, SEVERITY ,WARNING ; if WARNING, set 0 sev 
Malet eal = 0 ; set 0 sev (WARNING) 


-IF _IDN,SEVERITY,SUCCESS =; if SUCCESS, set 1 sev 
ee 8 = ; set 1 sev (SUCCESS) 
"TE IDN, SEVERITY ERROR ; if ERROR, set 2 sev 
we $_"MSG' = 2 3; set 2 sev (ERROR) 
"IF IDN;SEVERITY,INFO —;_ if INFO, set 3 sev 
wr $_"MSG' = 3 ; set 3 sev (INFO) 
"TE TDN, SEVERITY, SEVERE ; if SEVERE, set 4 sev 
i NAME $_'MSG' = 4 ; set 4 sev (SEVERE) 
4 "NAME'S_"MSG*® = "SEVERITY ; set specified sev 
.ENDC 
ENDC 
ENDC 


- ENDC 
see a ee = "NAME'S_"MSG'+SHRS_'MSG'+<'CODE'@16> 


s 
mm 
2 
o 
o 
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The SSIGNAL aerry prints a message 4; A ns 
LIBSSIGNAL facility. It escapes a yaria 

number of longword arguments (max. ) ~ y SE 

the requirements of LIBSSIGNAL. If you want 

to print SHR messages under another facility, 

first use the SSHR_MESSAGES macro to define message 
codes for the desired facility which are based on the 
SHR message codes. 


S-FORM of SSIGNAL 


~MACRO $SIGNAL_S ARG1, ARG2, ARG3, ARG4, AR So 

ARG? 

AR i. 

ARG16, ARG! ARG18, ARG19 he. 
ARG21, ARG22, ARG23, ARG24, ARGOS 

$$Ti = 0 ; init number of SSIGNAL arguments 


-IRP —SST2-<*ARG25, “ARG24 ,°ARG2S, "ARGZ2,~ 
"ARG21, 'ARG20, 'ARG19, "ARG18, 


» ‘ARG6, - 
ARGS. "ARGS, ARGS. *ARG2, ‘ARG1> 


IF 3 gen 7 if G4 F specified 
Seti essrie1 ; Incr # of args 
nae PUSHL $$T2 3 push SSTONAL. arg ones stack 
-ENDR 
CALLS #$$T1,G*LIBSSIGNAL 
-ENDM 


parameter List form of $SIGNAL 


.MACRO $SIGNAL ARG! Anes: ARG3, ARGS, ARGS 
ARG, ARGS, ARGIO, 
ARG} of Rsi2. A ARG13, ARGI4, ARGS, 
aRCI6. ARet ARG18. ARG19. ARG20. 


ARG21, ARG22. ARG23, ; ARG24, ARG25 
$$T1 = 0 : init number of SSIGNAL arguments 
. IRP $$T2, <*ARG1 *ARG2 *ARGS "ARGS ,- 
"ARGS, "ARGO," 8 


G - 
"ARGO. *ARG10 eet "ARG 12, ~ - 
"A R RG16,- 


G 
*ARG17,°ARG1 »'ARGI9, *AR 660. 
"ARG21,"ARG22, 'ARG23, 'ARGO4, *ARG25> 


IF NB, $S$T T2 3; add 1 to arg total if arg present 
—_ $$i1 = $$Ti*1 Ther # of SSIGNAL args 


2 ad 
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-ENDR 
-LONG $$T gen yonguerd argument total 
. IRP STP cOARGL TA A RS Pcs 64,- 


"A - 
"ARGS Anes. anette ARG12,- 
"ARG + ARG! sTARGIS, 1 ARG) 


"ARG21,"ARG22, 'ARG2 “VARGSD. > "ARG25> 


IF NB ,$$T2 ; gen longword if arg present 
«LONG $$T2 ; gen longword with this arg as value 


G-FORM of SSIGNAL 
-MACRO $SIGNAL_G LISTADR 


CALLG LISTADR,G*LIBSSIGNAL 
-ENDM 


| 
2 
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+ 


The $STOP mort ? prints a message using the 
LIBSSTOP facility. It accepts a variable 
number of longword arguments (max. 25) to satisfy 

the requirements of LIBSSTOP. If you went 

to print SHR messages under another facil ty, 

first use the SSHR_MESSAGES macro to define message 
codes for the desired facility which are based on the 
SHR message codes. 


S-FORM of $STOP 
.MACRO $STOP_S ARG! ARG? ARGS, A ARGS, ARGS 
ARG 1, “ARGI20 aR AR né13 mAkehS Oa. 
AR 16, G1 - ARGI9, 20: - 
ARG21, ARG22. Angas. ARG2G. ARG 
$$T1 = 0 ; init number of SSTOP arguments 


| 
-IRP —$$T2.<*ARG25,, "ARG24,, "ARG23, *ARG22, ~ | 
| 


Bete Ce Ge Ge Ge Ge Se Ge Ge Ge Ge ee 


TARGET. TARGEO. 'ARGTO. (ARG 


aac 
pars 
co 


IF 4 gens PUSHL if ore epee? 169 
Seti estas ner # of $STO s 
net PUSHL $$T2 ; > push $STOP ao fs stack 
-ENDR 
CALLS #$$T1,G*LIBSSTOP 
.ENDM 


parameter List form of $STOP | 
-MACRO $STOP ARG1, ARG2, ARG3, ARG4, ARGS 
ARG6 ARG? ARGB, ARG9, ARGIO 
ARGI1, ARci2. A ARG! aT kes 
ARG16, ARGI7. ARG! R620, - | 
ARG21, ARG22, ARG23, anel?e ARG 
$$T1 = 0 : init number of SSTOP arguments 
. IRP $$T2 Hag *ARG2 fr 3, "ARG4,- 
ARGS SARE ARG? ARGS 
ARG. “ARG ‘ARG “ARE 
"ARGI ,' G18.- 
+ Anes? 4, °ARG25> 


G13, "ARG 

"ARG17. "ARG! ARG] 
"ARG21."ARG22.ARG2 

IF NB, $$T2 ; add 1 to ar total if arg present 

‘ise seth = $$T1+1 =: incr # of $STOP args 


see eos 2 
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.ENDR 
;LONG $$11 . 

.IRP Os $ Te, < cARGls ARSE, TARGS, 

as gamete, a ARet i 


ARG] » ‘ARG! ARIS. A Rest 
"ARG21, "ARG22, "ARG2 ARG 4, *ARG25> 


IF NB ,$$T2 ; gen Longword if arg present 
ont . LONG $$T2 ; gen longuerd with enis arg as value 


-ENDR 
-ENDM 


: G-FORM of S$STOP 
~MACRO $STOP_G LISTADR 
CALLG LISTADR,G*LIBSSTOP 


ngs aiees argument total 


Tie 


.ENDM 


F 
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ARRRAAAAAAALALAAALALALELALALE SALAS ESE E LEAR EASE ESS SE OD 


MACRO COND GENERATES A CONDITION TABLE FOR TEST 
MODULES WHICH TEST SUCCESSFUL STATUS CODE RETURNS 
FROM SYSTEM SERVICES. 


INPUTS: 

NUMBER oMsTHIN ANY 
ODULE DITION 
ED SE GUENTTALLCY. 


CTX1 == SYST GUMENT CONTEXT. 
I STEM SERVICE ARGUMENT, 


ONTEXT WITH KEYWORDS 


ENCLOSED IN ANGLE BRACKETS. 


$1 TH WRU $5 -- UP TO 5 TEXT STRINGS. EACH 
STRING IS BOUNDED BY ANGLE BRACKETS AND 
DESCRIBES THE PARTICULAR CONDITION FOR 
EACH ELEMENT IN THE CONDITION TABLE. 


DUMMY -- A og: My: argument. This argument must be s viaiy 
e 


whenever the CIXT argument is anything Fut nul DUMMY 


is a null argument specified by a trailing comma. 


OUTPUTS: 
(REPLACE N_IN CONDN BELOW WITH CONDITION 
TABLE NUMBER.) 


CONDN_C ASSIGNED VALUE 4 CONTEXT. 
CONDN_T: cT tft : COUNTED STRIN 
: BYTE F 

CONDN_TAB: G 
CONT 

CONDN_E: LABE 
FOLL 
It 1 


Be Be Se Se Be Be Oe Be Se Se Se Se Se Ge Se Fe Se Se Ge Be Fe Ss Ge Ge Se Se BH Se Se Oe Se Se Se Se Se Oe Ge Oe Se Oe Se Se Se SH Oe Se Se Se Se See ee Se Se ee ee 
eseeeeeneeeeeenweeeeneneneeeeneneneneeeeeeeeneeneeneeeeweneeeeeeeeaneneeaeneene 

o 
—~ 
— 
“ 
i a 
Mm 
a 
qd 
3 
o 
~ 
~ 
“4 
— 
~ 
_ 
m 
. 

= 
~~ 
-_" 
= 
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;* CONDIT ON VALUES FOR ARG- 
; EN CONDITIONS. 
3 THE VALU S MUS [RMEDIATELY 
; COND TABLE). 
3° ‘ARGUMENT NAME": AN ALTERNATE NAME FOR CONDN_E. 
.MACRO C N,CTXT, cCTATLE. $1,$2,$3,$4,$5,DUMMY 
NOTARG = ; FOR’NOTARG SPECIFICATION OF CONTEXT PARM 
BYTE _ ; VALU FOR BYTE SPECIFICATION OF CONTEXT PARM 
WORD s= 2 > VALUE FOR WORD SPECIFICATION OF CONTEXT PARM 
LONG sz 4 ; VALUE FOR LONG SPECIFICATION OF CONTEXT PARM 
QUAD == g + VALUE FOR QUAD SPECIFICATION OF CONTEXT PARM 
DESC == 6 : VALUE FOR DESC SP CIEICATION OF CONTEXT PARM 
a = ; VALUE FOR NULL SPECIFICATION OF CONTEXT PARM 
= 
“[1F NE CTXT = NULL : IF CONDITION NOT NULL, EXPAND TABLE 
“NARG $$SCOND : GET NUMBER OF ARGS SPECIFIED 
$SSCOND_A = $SSCOND aA - 5 ; ADJUST TO GET HIGHEST ELEMENT No. (MAX 5) 
COND'N'_T: TRING CTITLE> ; TITLE FOR THIS CONDITION 
COND N’H: 3 BYTE $85¢ COND_A ; PUT HIGH ELT. NO. INTO BYTE FIELD 
“STGRP C,<S$1>, = 
<392- ~ 
<$3>, - 
<S$4>, < 
<$5> 
COND'N'_E: > LABEL END OF CONDITION TABLE 
~.1F NE COND'N'_C’= NOTARG 
CTITLE: ibe ; LABEL THE TABLE OF VALUES WHICH MUST FOLLOW 
a *IFF ; IF CONDITION IS NULL, MAKE SMALL TABLE 
COND'N' “TAB: 
COND N'SHE .BYTE 0 ; MAKE HIGH ELEMENT NUMBER ZERO FOR NULL TABLE 


$$ 
$$ 


hEXIT=0 
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FRSA KRHA AKREKA ATA A AEA EAEAEAAHAAAKA RRA AAARHRERHRAeeeeeeeeeeeeerereneeeeee 
. 


C3C,27C3T, 2C3R, 2C4C, 2C4T, 2C4R, = 
C4, eps CC$,CP6.CC6,OUMMYS 


PARRA ARRRRRARRRASARLESALAAAAL SALAS A LALA LEASES ASE REAR SEER EE REESE TEESE ESSER RAE 


.MACRO DECODE 2C1C,2C1T,2C1R,2C2C, zcet 2C2R 
CODE. VALID, €P2,c€2,cP%,CC3;CP4, EC 


; !!NOTE!! = When DECODE is invoked, its argument List must be followed b 
; a trailing comma, thus generating an extraneous null argument. 


.NARG  NARGS 
NARGS = NA NARGS = 1 
-ERROR Wance-ts : EXCESS (>6) TEST PARAMETERS IGNORED.; 


IF LT NARGS=1 
ZERROR NARGS-12 ; INSUFFICIENT (<2) PARAMETERS SUPPLIED.; 
»MEXIT 
~ END 
-IF GT CODE- =4 
Mr eel INVALID (NOT 1-4) ARGUMENT CODE SPECIFIED.; 


-MEXIT 
-ENDC 


-IF EQ CODE 
wate? INVALID (NOT 1-4) ARGUMENT CODE SPECIFIED.; 


F DIF,COD 
I ENARGS 2s cuARGS/20> 
_— NARGS-12 ; MISSING (ODD NUMBER OF) PARAMETER(S).; 


. 
SHACKS SHLAA AAAAAAHAAAAAAAARAAAAAAAAAAAAAAAAAAAAAAAAAETAAEAAAAAAERERARAEE eee 


THE FOLLERE USED ON MACROS, LABEL. ADDRESS, AND LABGEN 


*DECODE’ 


=MARARARALAAALARAAALALALAAL ALAA LAS AL EASE RAR REESE EER R RRR SSAA SAAR R ASA RRR EES GS 


~MACRO LABEL N 


- ENDM 
»-MACRO_ ADDRESS N 
-ADDRESS L'N 


“MACRO LABGEN FUNC,N, INC=1 
FUNC = \N 


£24 
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; Decrement for trailing null argument 


ONLY To GENEARTE UNIQUE LABELS WITHIN THE 


Ee 


a 


5 
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=N+INC 


CiT: 
CiT: 


CiR: 


cic: 


C2T: 


N=1 


C2R: 


jm cian ahaa ttisher rat ncn 


GENERATE CODE HERE FOR ARGUMENT TYPE ‘1' 
IF IDN,CODE,1 
BRW ch 
~1F OF VALID 
* ADDRESS VALID 
[ADDRESS C11 
- IRP X,<<CP2>,<CP3>,<CP4>,<CP5>,<CP6>> 

NB <X> 
-ADDRESS X 

NOC 


; BRANCH AROUND ARG TABLES 


ENDR 

TIF DF VALID 
“ADDRESS VALID 
"ADDRESS C1T 
ENDC 


. IRP K,<<CC2>,<CC3>,<CC4>,<CC5>,<CC6>> 

vIF NB <X> 

-LONG SS$_'X 

.ENDC 

.ENDR 

MOVAL C1T,R10 ; PASS BACK PARM TABLE ADDRESS 
MOVZBL HNARGS=~147/2, (R94 SAVE NO. ARGS TO BE TESTED 
MOVAL C1R,(R9)+ : SAVE RETURN CODE TAB ADDR 


PITTIITITITILILILLLT LILI LI LLL LITT iLL ii iii iiiiiiei 


GENERATE CODE HERE FOR ARGUMENT TYPE ‘2° 
If IDN, CODE ,2 
BRW c2c ; BRANCH AROUND ARG TABLES 
. IRP E CCWM, 18>, <LPZ> .<EPI> -<EPED, <EPS>..<CPEDD 


IF NB 
LABGEN {fort 


~ IRP X,<<VALID>,<CP2>,<CP3>,<CP4>,<CP5>,<CP6>> 
-1F NB <X> 

LABGEN ADDRESS,N 
~ENDC 


~ENDR 
-ADDRESS L1 
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C2c: 


. IRP K,<<CC2>,<CC3>,<CC4>,<CC5>,<CC6>> 
lf NB <> 
-LONG SS$_'X 
-ENDC 
-ENDR 
VAL ; SAVE ARG TABLE ADDR 


MO C2T,R10 
MOVZBL #NARGS-14/2, (R9)+ ; SAVE NO. ARGS TO BE TESTED 
MOVAL C2R,(R9)+ 3 SAVE RETURN COD TAB ADDR 


. 
PPAAARAASARARALARAALALALALEAL ELAS ALES ESE REESE ARES ERE E TEES EEE RECESS ACES ESSERE ESS 


N=1_ 


C3R: 


C3C: 


GENERATE CODE HERE FOR ARGUMENT TYPE ‘3° 
IF 1QN-CODE.5 
C3¢ 


BRw ; BRANCH AROUND ARG TABLES 
4 5 CCW. IBD CEP ED ,<EP ID. <EPED, <EPSD <EPEDD 

LABGEN LABEL, 

STRING 1,<X> 

~ENDC 

EN 


4 af chigS<VALID> .<CP2>,<CPS>, <CPA>,<CP5>, <CP6>> 
LABGEN ADDRESS,N 
-ENDC 


-ENDR 
-ADDRESS L1 


. IRP X,<< cCe>, <CC3>,<CC4>,<CC5>,<CC6>> 

wIF NB <x 

-LONG SS$_' x 

“ENDC 

-ENDR 

MOVAL (C3T,R10 ; SAVE ARG TABLE ADDR 

MOVZBL #NARGS-14/2, (R9)+ : SAVE NO. ARGS TO BE TESTED 


MOVAL C3R,(R9)+ ; SAVE RETURN CODE TAB ADDR 


-ENDC 
SSPE SSSA AAA KH SAAAAAAAAAAEAEAAAAAAEAAAAAAAARAERAAAAAAAARAAAAAAAARAAAAAAEEAAAAAAEAEE 


N=1 


C4T: 


N=1 


GENERATE CODE HERE FOR ARGUMENT TYPE ‘4° 


IF IDN, CODE ,4 
BRW C4C 


1 R CCUM. 18>, <EPE>.<CC2>, <CPI>,<CPG>, <CERD .<EES>..<EPE>? 
LABGEN LABEL.N 


“” 
— 


— 


K 
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. IRP X,<<VALID>,<CC2>,<CP4>,<CC5>> 
-I1F NB <X> 
LABGEN ADDRESS,.N,2 
~ENDC 
.ENDR 
-ADDRESS L1 
C&R: 
. IRP X,<<CC3>,<CP5>,<CC6>> 
c IF NB <X> 
-LONG SS$_'X 
eENDC 
.ENDR 
C4C: MOVAL 


C4T,R10 ; SAVE ARG TABLE ADDR 
MOVZBL #NARGS-15/3,(R9)+ ; SAVE NO. ARGS TO BE TESTED 
C4R, (R9)* ; SAVE RETURN CODE TAB ADDR 


-ENDM ; END OF "DECODE’ DEFINITION 
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; seeweeeee THIS MACRO CAN BE DELETED WHEN LARRY FINISHED WITH IT 
«MACRO DISPLAY CTLSTR,ARGLST 
MOVA CTLSTR,R10 ; PROVIDE CONTRL STRING AND 
-NARG —_NARGS 
-1F EQ NARGS=1 ; CHEK FOR ARGLIST OMISSION 
CLRL R11 ; PASS 'O" TO FAO 

IFF 

of ~ DISPLAY ; TO DISPLAY GIVEN MESSAGE. 
~ENDM 


MOVAL ARGLST,R11 : PASS ARG LIST ADDR 


M15 
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RRA A AAA AAR EERE EEA REA T EEA AEAT ETAT 


«MACRO DISPSERV 2END, 2RMSG, 2ARGL, 2MSFLAG, 2SET, ?PREP 
ETIIIITITITITITITITITITITITILITILITITITiLTTTTiTiTiliTitiTiiiiiii iT tiTTTTTtiTiiie 
.ENABL LSB 
‘ BRW END : PREVENT FALL THRU FROM OTHER CODE 


RMSG: STRING I, Pog Aa A RETURN = !XW , EXPECTED = !XW >,= 
ARGUMENT LIST WAS !#(9XL)> 


OUTL: .LONG 0 
SS$CALL$$:.LONG 0 CONSECUTIVE CALL NO. (KEPT BY SATS MODULES) 


SSINITSS: .LONG 0 : INIT PARM NO. VALUE FOR EACH ARG (SATS) 
inc 
$$S ShADSS: -ADDRESS 0 sADDR OF ah the NAME 
SSASEQ$$:.LONG 0 ; ARGUMENT SEQUENCE NUMBER 
SSPSEQSS: -LONG 0 : TEST Ae AS SEQ NUMBER 
SSACTSS:. 0 ; CONTENTS OF rf ata SERVICE CALL 
SSEXPS$:.LONG 0 : EXPECTED cary FROM SERVICE 
SSARGSS: .LON 0 ; NO. ARGUMENT we ERED FOR ‘TESTSERV' 
-LONG Q ; FIRST . FOR CURRENT SERVICE CALL 
-LONG 0 : SECOND ARG 
-LONG 0 : ETC. 
-LONG 0 
-LONG 0 
MSFLAG: .BYTE 0 ; MISCELLANEOUS FLAGS 


éutp: 


.LONG OUTE-OUTB 
“ADDRESS OUTB 
OUTB: .BLKL 33 
OUTE: 
$SERRSS: 
PUSHR #*M<R9 R10, R11> : SAVE WORK REGS 
MOVZBL $$ARG$$,R1 : USE R1 FOR ARG COUNT 
MOVAL SSARGSS+4 R9 : SETUP ARG List FILL 
MOVL (RB), (R9)¢4 ORE 1ST Ate IN MSG LIST 
DECL a : pecrenEnt: ARG COUN 


Hii ; AND DROP IF LAST ARG 
MOVL cr >, (R9)+ 3 ETC., 


PREP 
MOVE = (RS), (R9)+ 
PREP 
MOVE (RA), (RO)* 


PREP 
MOVE = (RS), (R9D4 


N 15 
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BEQL PREP 
PREP: MOVAL RMSG,R10 ; PROVIDE MSG ADDRESS 
MOVAL ARGL.R11 : AND ARG LIST 
JSB SS$DISPSS : DISPLAY THE MSG 
POPR #*M<R9,R10,R11> : RESTORE THE MSG REGS 
: RSB : RETURN TO CALLER 
: THE "DISPLAY' SUBROUTINE PERFORMS A FORMATTED WRITE 
; TO THE TERMINAL. 
: INPUT: R10 => FAO CONTRL STRING (LENGTH IN FIRST BYTE) 
; R11 => LIST OF FAO ARGUMENTS 
: OUTPUT: FORMATTED MSG IN BUFFER ‘OUTB' 
; LENGTH OF SAME IN LONGWORD ‘OUTL' 
$sD1SP$$: 
SFAOL_S (R10),OUTL,OUTD,(R11) ; SETUP TERM OUTPUT LINE 
: FOR THE FOLLOWING PUTMSG CALL 'OUTL' IS USED FOR THE LENGTH OF 
; THE TERMINAL WRITE. $FAO STORES THE LENGTH OF THE FORMATTED 
: OUTPUT LINE IN ‘OUTL' FOR JUST SUCH USE. 
: MOVW = OUTL ACTUAL QUTPUT LENGTH IN STRING DESCRIPTOR 
PUTMSG SHUE TES. TEXT, #1 #OUTD> ; PRINT TH 
MOVW  #OUTE-O0TB,OUTD ; GET MAX LENGTH Back INTO DESCRIPTOR 
; RSB : RETURN TO CALLER 
END: 
.DSABL LSB 
: -MACRO DISPSERV ; REDEFINE DISPSERV TO NULL 
-ENDM _ WILL BE DELETED A FTER USE 
“END : END OF 'DISPSERV' DEFINITION 


K—COVMNOODZSE KCK TOM OODST Sl KCK ITO *MOOCM!™T Sl KOH TOM OOCOZ Sr ACK TOA MIOW 
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~-MACRO ERR EXIT CONT, EE BEY NOT ? 


LAB1 
ay DIF ,P,PCV T SPECIFIED 
VAL .=1,PCV ; SAVE PC VALUE FOR MSG4 
MENDC 
BRB LAB1 


$$$$-. 
LAB1: 


STRING I,<MT1>,<MT2>,<MT3> 


MOVAL $$$$,M : GET ADDR OF STRING DESC'R FOR FAO (MSG3) 
MOVB F CONT sme CTXT : PREPARE CONTEXT FOR EXP/REC MSGS (MSG4) 
BSBW PROCESS ERR ; PERFORM MORE ERROR PROCESSING 

RSB : «+» AND EXIT THIS SUBROUTINE 
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-MACRO GRPLABEL TCG_NO 
TC" TCG_NO: 
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NCHA SBSIDN 
ENt2 NAME , \ 


TENOR 
“MACRO IDENTS NAME 2,V 
END IDENT /NAME 


epee 


$2 
sy fERS2/ 


1 
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.MACRO MODE aogest BR,M,NR, ?7CONTIN 
IF IDN,DEST,F : IF DESTINATION IS FROM 
+. RET + RETURN FROM CHMRTN 
: saa .MEXIT ; EXIT FROM MACRO EXPANSION 
TIF DIF DEST,T IF DESTINATION NOT TO 


CONTIN: 


“ERROR: DESTINATION MUST BE FROM OR TO 
SMEXIT QUIT MACRO EXPANSION 


- END 
MOVAL Sgt CHM_CONT ; GET Bad ADDR jmin CHMRTN 


if DN NOREGS ~ : IF NR ARGUMENT 
ey RENN : EXECUTE CHMRTN IN NEW MODE 
ore : IF T = NOREGS 
BSBW SAVE_REGS 


SCM'M'_S CHARTN 
BSBW REST_REGS 
NDC 


BRW BR 


Se Se Oe ee ee eee 
< 
maz 
Zz 
P< 


; E E 
; RESTORE REGS R2 THROUGH R6 
BRANCH TO INSTR FOLLOWING ''MODE FROM,..."' 
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-IF EQ CONTEXT 
MOV_VAL 


MOVA' SHORTCTX 
.ENDM 


-ENDC 
IF EQ CONTEXT = tore 
MOV_VAL2 


~MACRO MOV Ay) ae »SRC,DST 


B,SRC,DST 


IF EQ CONTEXT = WORD 
MOV _VAL2 


W,SRC,DST 


SRC,DST 


-ENDC 
IF EQ CONTEXT = QUAD 
MOV_VAL2 


Q,SRC,DST 


~ ENDC 
IF a CONTEXT = DESC 
MOV_VAL2 


Q,SRC,DST 


SRC,DST 


; EXPAND IF BYTE CONTEXT 
; EXPAND IF WORD CONTEXT 
; EXPAND IF LONG CONTEXT 
; EXPAND IF QUAD CONTEXT 


; EXPAND IF DESC CONTEXT 


DM 
.MACRO MOV_VAL2 SHORTCTX,SRC,DST 


F 
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-MACRO MSG MSGTEXT1 ,MSGTEXT2 ,MSGTEXTS, 2$$$ 
RB $$$ 


$$$$-. 
$88 STRING M,<MSGTEXT1>,<MSGTEXT2>,<MSGTEXT3> 


SOUTPUT CHANNEL ,S$$$,<$$$$+8> 
~ENDM 
- PAGE 


H 
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.MACRO NEXT_TEST_CASE TCN,?$$$ 
IF €Q $SSFIKSTT 
MOVAL $$,CURRENT_TC ; GET ADDR OF NEXT T.C. 
RSB ; RETURN TO"FINISH UP THIS T.C. 
.ENDC 
$$$: 
PAGE 


,SBTTL 
SSF IRSTICSSS = 0 


3 ++ 
; FUNCTIONAL DESCRIPTION: 
Macro to set or clear privileges 
CALLING SEQUENCE: 
PRIV ADDREM,SYSPRV 
FORMAL PARAMETERS: 
ADDREM 
Parameter indicating whether the peteiege is to be added or 
deleted. Must be specified as ADD or REM 


SYSPRV 
Name of the privilege to be changed 


.MACRO PRIV,REMADD,PR 
.NARG PRIV ARGS 
-1F LESS_ TRAN, PRIV_ARGS=2 
aren PRIV parameters missing 
ae IDENTICAL, REMADD REM 
IF IDENTICAL, PR,ALL 
ren os -1,-(SP) ; Remove all privilege mask 
“nove #1aPRVSV_'PR',-(SP) : Create the privilege mask 
MOVL SP,RO 
SSETPRV_S ENBFLG = #0,- > Clear the priv’lege 
PRVADR = (RO) 
SP ; Fix the SP 


- IF FALSE 
TF poonr ice REMADD , ADD 
a ger oPR est 


f. Tas ss ; Add all privilege mask 
oy Q #laPRV$v_'PR',-(SP) : Create the privilege mask 
ENOL 


SP,RO 
SSETPRV_S ENBFLG = # 


1,7 Set the privilege 
PRVADR = (RO) . ° 
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ate #8,SP ; Fix the SP 
~1F_FALS 

ae ; Must specify REM or ADD as first argument 
.ENDC 


m 
-ENDM PRIV 
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+ 
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MACRO PUTMSG ARGS 


PUTMSG is a synonye for SSIGNAL_S == i.e., PUTMSG 
merely issues SSIGNAL_S, passing along its set 

of arguments to SSIGNAL_S. The arguments specified 
on the PUTMSG invocation Line must be bounded by a 
single set of angle brackets, so that 7 gopecr 
as a single orgyeent to PUTMSG, but as mu tiple 
arguments to SSIGNAL_S. 


SSIGNAL_S ARGS 


24 
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K 
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FERRARA EERE EEE EAE AE EAA EE AAA AAA EAA TAREE EKA ee 


- MACRO SERVCALL  SERVNAN ASG .OPTNS, TABR. ?SLOOP. TSADD, TSCALC, 7SSAVE, = 


. 
” 
FERRARA SAAR AERA AERA AERA AAA AEE AAA EAA AEA AERA EEAEE EEE A EATER eee 


; INCR eerie e 


SCALC: 


SLOOP: 


SERR: 
SSAVE: 


INCL SSASEQSS 


MOVL (R9)+,R11 
BNEQ ALC 
TSTL (R9) 


B SADD 
ASHL  #2,R11,R11 
ADDL2 TABR,RI1 


TABR 
(R9)+,R10 

MOVL  $S$INITSS$,$SPSEQSS 

ADDL #1, $$PSEQS$ 


QS 
= 
<o 
a 
3 


IF IDN, OPTNS, SATS 
138 a(sP)+ 
cIF EQ NSSARGS-1 


$'SERVNAM'_S a(R8) 
IF Go wssancs-2 2 


RVNAM’_S @(R8) ,a(R2) 


F 
IF §' SERUNAM’ 5 -3 


UMBER 
IF NO_INVALID ARGS BEING TESTED 


; IF NOT, ro TINUE... 


P PAST CODES PTR 
: THEN SKIP ALL SERVICE CALLS 
; NO.PARMS X ENTRY SIZE (4). 

- + TAB etre ADDR = ing LIMIT 


> NOW Point TO 1ST INVALID 


; R10 => RETU 
: RESET. INITIAL PARM NO. 


URN CODES 


es 


INCR TEST PARAMETER COUNT 
VISIT MASTER ROUTINE 


; THESE Pa Hh 1) °S GENERATE 
3 eee A SYSTEM SERVICE CALL 


3 eee WITH THE songees NUMBER 
3 «++ OF ARGUMENTS 


RVNAM'_S @(R8),a(R2) ,a(R3) 


F 
-IF EQ 


NSSARGS=-4 


$* SERVNAM’ 5 @(RB) ,A(R2) ,A(R3) ,a(R4) 


LENDE. 
.ENDC 
.ENDC 

.ENDC 
“IF IDN, OPTNS, SATS 
JSB a(SP)+ 
CMPL = RO, (R10) + 
IF IDN,MSG,ERR 

SADD 
“IF LDN, OPTNS SATS 
nove Hae * SSTSTNSS$S+*2 
MOVB = #*A'*®" , SSTSTNSS#2 


RO, SSACTSS 
MOVL  =4(R10),$SEXPSS 


” 
IF EQ,NSSARGS=5 
$'SERVNAM' _S 


S a(RB) ,a(R2),a(R3) ,a(R4) ,a(R5) 


VISIT MASTER ROUTINE 
EXPECTED RETURN CODE? 
OK IF EQUAL... 


AND DROP TH 


** INFO 
URN ALSO 


=o 


SYSTSTMAC.MAR; 1 

j JSB 

SADD:  ACBW 
.ENDM 


SSERRSS 
R11,#4,TABR,SLOOP 
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; GOTO ERR MSG RTN IN 'DISPSERV' 


: bos reat ine ak PARMS 
R_TH “eh RG AND _LEA M POINTI 
OTH HE V ACID CAST) ENTRY IN T 
; END OF’ BRL DEFINITION 


M 
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-MACRO SE RVCHER 7LAB1, ?LAB2 
BLBS 


LAB1: LAB ; IF SUCCESSFUL, CONTINUE 
MOVAL CAs /DIEARG ; IF ERROR, SAVE PC FOR MSG 
ao {AND GOTO’ "DIE" ROUTINE® 
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.MACRO SS_CHECK SC,?LAB1,?LAB2 
STB) Ss EF CAG ; f 


ST ; IS AN ERROR ALREADY BEING PROCESSED ? 
BNEQ LAB ; YES == GO EXIT THIS SUBROUTINE 
MOVAL .-9,PCV ; GET APPROX LOCATION OF SYSTEM SERVICE 
MOVL #SS$ "SC'.EXPV ; LOAD UP EXPECTED AND ... 
MOVL RO,RECV 3... RECEIVED VALUES 
BSBW COMP ; PERFORM STATUS CODE COMPARE 
TSTB.~—s EFLAG ; DID COMP_SC FIND AN ERROR ? 
— BEQL LAB2 3 NO == JUST CONTINUE 
RSB ; EXIT THIS SUBROUTINE 
LAB2: 
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+ 
> 


PARRA RRASAAAREARAALALALEA SELES ASSES ER ESE SER EERE SEES ASS Go 


* 
* 
* 
® 
® 
a 
* 
oe 
w 
& 
® 
ke 
e 
* 
® 
® 
* 
® 


MACRO STGRP a A te ROUP OF athe, Pesan gh TORS 


AG 
AND THEIR ASSOCIATED STRINGS. THE DE 

ARE CONTIGUOUS AND PRECEDE ALL STRINGS, WHICH 

ARE ALSO CONTIGUOUS. THE FIRST ARGUMENT FOR THE 
MACRO IS A TYPE CODE (1 OR C) WHICH INDICATES 
WHETHER THE STRINGS ARE DESCRIBED BY QUADWORD 
STRING DESCRIPTORS (1), OR ARE COUNTED STRINGS (C). 
IN THE CASE OF COUNTED STRINGS, THE CONTIGUOUS 
DESCRIPTOR BLOCK IS MADE UP OF LONGWORD POINTERS 
TO THE COUNTED STRINGS, ONE POINTER PER STRING. 

THE BYTE COUNT IS RETAINED AS THE FIRST BYTE OF 

THE STRING. THE COUNT DOES NOT INCLUDE THIS BYTE. 
THE TYPE CODE ARGUMENT IS REQUIRED; 

THE ISSUER MAY THEN SPECIFY UP TO 5 CHARACTER 
STRINGS, EACH ONE A SEPARATE ARGUMENT 


BOUNDED BY ANGLE BRACKETS. 


PARRASASASAASLALALALAEALEAS LALA AAS SAS ESE SEER ESE R EEE RASA SE SS 


«MACRO STGRP TYP,ST1, ST2, ST3,S1T4,ST5,2N1,2N2,2N3,2N4, 2NS 


“IF DIF,TYP,1 2 NOT 1°? 
-IF DIF, TYP.C NOT C ? 
-ERROR ; INVALID STGRP TYPE -- MUST BE I OR C 
-ENDC 
TRINGS ; GET NO. OF STRINGS + ANOTHER ARG 


NARG $$ 
SSSSTRINGS=$SSSTRINGS-1 ; GET NUMBER OF STRINGS (5 MAX) 
oe ae t ty 70 De ; REMEMBER IT FOR LATER 


RI 
=NCHR sShtian .<ST1> ; GET NUMBER OF CHARS FOR STRING 1 
: IF STRING DESC'R, GENERATE LWORD CNT 


IDN, : 
-LONG * SSSCHARS! + LENGTH OF STRING 
"ADDRESS N1 POINTER TO STRING 


» ENDC 
OPPs Tales <tees TaiNes~t 3 DECREMENT STRING COUNT 
IF < SSSSTRING 


“NC Re siicianee .<ST2> ; GET NUMBER OF CHARS FOR STRING 2 
SIF IDN,T ; IF STRING DESC'R, GENERATE LWORD CNT 
LONG * SSSCHARS2 : LENGTH OF STRING 


[ADDRESS N2 POINTER TO STRING 


SSSSTRINGS=SSSSTRINGS-1 ; DECREMENT STRING COUNT 
NCHR eager] e<ST3> ; GET NUMBER OF CHARS FOR STRING 3 
SSCHARS 


IF NE $ 
-IF IDN,TYP,] IF STRING DESC*R, GENERATE LWORD CNT 


SY! 
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N2: 


N35: 


-LONG SSSCHARS3 
[ADDRESS N3 


lf 


»NCHR 
.1F NE et 


-EN 
SSSSTRINGS=SS$STRINGS~1 
NE $$ 


; RINGS 
$$ nARSS o<ST4> 


LIF 1D 


N,T 
ONG * SSSCHARSS 


TADDRESS NG 


N, 
“LONG 
ADDRESS NS 


SSSSTRINGS=SSSSTRINGS~1 


TYP, ] 
SSSCHARSS 


D1 
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LENGTH OF STRING 

POINTER TO STRING 

DECREMENT STRING COUNT 

GET NUMBER OF CHARS FOR STRING4 


IF STRING DESC'R, GENERATE LWORD CNT 
LENGTH OF STRING 


POINTER TO STRING 
DECREMENT STRING COUNT 
GET NUMBER OF CHARS FOR STRING 5 


; IF STRING DESC'R, GENERATE LWORD CNT 


i Cae tt hy tal 1 : 


TENDC 
ENDC 
NDC 


-E 
END 4: 


IF R. SSSSTRINGS 


; LENGTH OF STRING 
; POINTER TO STRING 


DECREMENT STRING COUNT 
INGS HAS rf! GONE TO 0, TOO MANY 


F STR 
: TOO MANY STRINGS SPECIFIED (5 MA 


. END 
$585 Taings-sssstaincs2 
-IF NE S$S$STRING 

IF NE SSSCHARSI 


-IF ION, 


.BYT 
"ASCII = \STI\ 
SSSSTRINGS=SSSSTRINGS~1 


*SSSCHARS! 


E $$$sT 


IF 
-1F NE SSSCHARS2 


IDN,TYP,C 


- END 
“pasee \ST2\ 
SSSSTRINGS=SSSSTRINGS~1 


IF NE $ 
-1F NE SSSCHARS 


IF 


SSSCHARS2 


.TYP,C 
$$SCHARS3 


; GET BACK ORIGINAL STRING COUNT 


3; IF COUNTED STRING, INSERT BYTE CNT 
; STRING COUNT 


CHARACTER STRING 


; DECREMENT STRING COUNT 


; IF COUNTED STRING, INSERT BYTE CNT 
; STRING COUNT 


CHARACTER STRING 
DECREMENT STRING COUNT 


ATRING, INSERT BYTE CNT 
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ASCII \ST3\ ; CHARACTER STRING 
SESSTRINGS=$SSSTRINGS=1 ; DECREMENT STRING COUNT 
IF NE $$SSTRINGS 
a TIF NE S$SCHARS4 
: .1F_IDN,TYP,C ; 1F COUNTED STRING, INSERT BYTE CNT 
-BYTE SSSCHARSG + STRING COUN 
ASCII \ST4\ ; CHARACTER STRING 
S$SSTRINGS=$S$STRINGS-1 ; DECREMENT STRING COUNT 
IF NE $$S$STRINGS 
= -IF NE $$S$CHARSS 
y IF IDN,TYP,C ; IF COUNTED STRING, INSERT BYTE CNT 
-BYTE SSSCHARSS > STRING COUNT 
“ASCII \ST5S\ ; CHARACTER STRING 


SSSSTRINGS=SSSSTRINGS-1 ; DECREMENT STRING COUNT 


EN 
ENDC 
ENDM 


TENDC 


F 
SYSTSTMAC.MAR; 1 16-SEP-1984 17:07:36.21 Page 32 


sMACRO STRING STYPE,STRING1,STRING2,STRING3 


THE STRING MACRO GENERATES ASCII STRING DATA 
IN ONE OF FOUR FLAVORS, DEPENDING ON A SUPPLIED 
CODE. THE FORMAT IS: 


STRING CODE,<STRING1>,<STRING2>,<STRING3> 
WHERE CODE IS A ONE=CHARACTER CODE ooeneT ING HE 


TYPE OF STRING AND STRING] oSteiNs TR 
ARE SEGMENTS 0 Of TH TH HE G REAT TED 


Sozu> 


I 
E 
S 
D 
THE CODE {S INT 


1 == GENERATE 
FOLLOWED | 


M <= SAME AS I H CR, LF CHARACTERS APPENDED 
TO SPECIFIED. STRING. 


T 

S 

LLOWABLE IN A .ASC 
BACKSLASH, WHICH IS 
ERPRE 

Ss 


WORD STRING DESCRIPTOR 
TELY BY THE SPECIFIED STRING. 


nS omP>~<—42z 


E 

BY 
AS FOLLOWS: 
D 

A 


<« 27 mo S55 


0 == GENERATES A QUADWORD STRING DESCRIPTOR 
FOLLOWED IMMEDIATELY BY A STRING BUFFER. 
YOU DO NOT SPECIF TRING WITH THIS CODE 
BUT, INSTEAD, USE THE STRING] ARGUMENT TO 
SPECIFY A LENGTH FOR THE STRING BUFFER. 
THE LENGTH WILL BE STORED IN THE FIRST 
LONGWORD OF THE DESCRIPTOR; THE STRING 
BUFFER WILL NOT BE INITIALIZED. 
C -- GENERATES A COUNTED ASCII STRING (ONE BYTE 

COUNT FOLLOWED BY SPECIFIED STRING) 

IF IDN,STYPE,O : 1S 110? 

“LONG ‘STRING! 

"ADDRESS .+4 

-BLKB STRING! 

-IF DIF, STYPE,1 ; NOT 1? 

IF DIF.STYPE,M > NOT M ? 

IF DIF, STYPE,C : NOT C ? 

ERROR : INVALID STRING TYPE -- MUST BE I, 0, M, OR C 

ENDC 

*ENDC 

*ENDC 

NARG  $$$STRINGS 
assstaingsssassTRiNcs~ 1 
NCHR $8 CHARS , <STRING1 *STRING2" STRING3> 
“IF YPE,M > IS 11m? 
pea ; INCR FOR CR, LF 
"IF IDN,STYPE,C > IS ITC? 


“BYTE ‘$SSCHARS 


——— 


1 
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TIFF 
«LONG $$$ HARS 
-ADDRESS .+ 


NDC 
LIF " se es HP. ;° 
-ASCII TRING 
TRINGS rt ao 


7-2 ¢ Ge 
aT 
sad 
Ft, ad 
= 


memo >ummm>— wee 


; IS ITM? 
: CR, LF 


=O 
2 
7 
“ 
at 
v 
m 
=z 


ZZZ"Z2ZZ2ZZY "HY 
ovucn VvoooOr_ wo ww 
BOOK KM OOOH Zi Zz 

A 

— 

w-< 

Vv 

A 

—s 

oO 

v 
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j sevese Ly: STRINGO MACRO -~ BEEN REPLACED WITH STRING (0 FORM), 


CRO STR 
«LONG 
+ADDRESS ,+ 
-BLKB SIZ 
ENDM 


NGO SIZ 
IZ 
E 
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«MACRO TCEND 
RSB 
- PAGE 
» SBTTL 
-ENDM 
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RMS 
02: 
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«MACRO T 
JSB 
»ENDM 


C 
T 
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; JUMP TO TEST CASE GROUP INIT 


RMS 
O2t 


K 
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-MACRO 
FIRST_T 


TCSTART 
ened FIRSTTCS$$ = 1 


NDM 
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1 
jks} ; FOR THIS GROUP 
TOTAL = GRP_TOTAL*1 ; 0 IS GROU 


L 
MOVAL $$$ CURRENT TC 


A 

AL N : 

vB #'Sea §s_SSCALLS$ ; JN 
L W*A/F°SS$/, $$TSTINGS+ 


GROUP 
AS  sceneandl 
GROUP WITHIN THIS SS 
NAME 


$$$: 


a4 
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PPAR EERE AREER AAA AERA AAA AERA ARERR EEA AAA REE 
ORR ARRRA RASA ASA LASALLE ELAS ASAE SASS SEES E EE TSE ERSTE REESE EEE c eee cee ceca ae 
.MACRO TESTSERV SERVNAM,MSG=ERR, OPTN,PSET1,PSET2,PSET3,PSET4,- 
PSETS ,DUMMY1, 7SERVNAML, ?START, 27ARGBLOK 


; !!NOTE!! == When TESTSERV is invoked, ite argument List must be followed by a 
; trailing comma, this generat ng an extraneous null argument. In 
3 addition, a tral ine comma must appear following each sub-argument 
; List ( i.e., PSET1 through PSETS). 


»~NARG NARGS 


NARGS = NARGS - 1 ; Decrement fot trailing null argument 
NSSARGS = NARGS=3 > CALCULATE NO. OF ARGS REQUIRED 
t see SYST. SERV. == USED IN SERVCALL MACRO 
.1F GT NARGS-8 
-ERROR NARGS ; TOO MANY (>8) ARGUMENTS SUPPLIED.; 
ENDC 
: .IF LT NARGS=4 
-ERROR NARGS ; INSUFFICIENT (<4) ARGUMENTS SUPPLIED.; 
SENDC 
. IF DIF ,MSG,ERR 
*I1F DIF .MSG.ALL 
- ERROR ; MISSING OR INVALID ERROR DISPOSITION ARGUMENT.; 
SENDC 
ENDC 
. IF NB OPTN 
“IF DIF ,OPTN, SATS 
“ERROR ; INVALID OPTION ARGUMENT.; 
-MEXIT 
SENDC 
END 
: IF NDF S$SERRSS 
-ERROR ; NO PRECEDING "DISPSERV' MACRO CALL.; 
-MEXIT 
ENDC 
; IF B OPTN 
"NCHR =NCHRS, SERVNAM 
MOVB  #NCHRS, SERVNAML ; SAVE NO. CHARS IN SERVICE NAME 
MOVAL SERVNAML , S$SNADSS > KEEP ADDR OF SERVICE NAME 
“IF DN, OPTN, SATS 
MOVAL $TSTNSS. SSSNADSS ; GET TEST NAME FROM MASTER 
, MOVZBL #NARGS-3,$SARGS$ > KEEP NO. SERVICE AR 
SSMAXPS$= 5 ; MAXIMUM NUMBER OF TEST PARMS PER ARG 
CLRL = SSASEQSS ; RESET ARGUMENT SEQUENCE NUMBER 
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8 TART 
SERVNAML : .BYTE 

. I \SERVNAM\ 
ARGBLOK : . 


-REPT NARGS-3 
~BLKL 2 
~ENDR 


START: 
; MOVAL ARGBLOK,R9 
.1F NB <PSET1> 


DECODE RETA: She 
MOVL R10,R8 


nENDC 
IF NB <PSET2> 


IF NB <PSET3> 


DECODE sovece 
LIF €Q MEXET=1; {mex 
rie R10,R3 


IF NB <PSET4> 


wIIF €Q MEXIT-1; <M 
MOVL = R10,R4 


IF NB <PSETS> 


ECODE ao 
.1IF €0 mEXIT {°° "hm 
MOVL  R10,R5 


MOVAL ARGBLOK,R9 
-1F NB <PSET1> 


SUBL Ht ia 


ati ARRL TAC 
MeND be 


PARAMETER TABLES (1 PER 1ST LEVEL 


N 
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RESET TEST PARM SEQUENCE NUMBER 
athe CONSEC.CALL NO. (PASSED BY SATS) 


ALL_NO. X MAX PARM rs = NEW START NO. 
COMPENSATE FOR ‘INCL’ LATER 


SKIP_ AROUND NAME 
LENGTH OF SERVICE NAME 


ARGUMENT INFO, 


POINT R9 TO TOP OF ARG BLOK 
DECODE 1ST ARG SET... 
SAVE TEST PARM TABLE ADDR 


DECODE 2ND ARG SET... 
SAVE TEST PARM TABLE ADDR 


DECODE SRD ARG SET... 
SAVE TEST PARM TABLE ADOR 


DECODE 4TH ARG SET... 
SAVE TEST PARM TABLE ADDR 


DECODE 5TH ARG SET... 
SAVE TEST PARM TABLE ADDR 


ARGUMENT) ARE NOW BUILT 


RE~INIT ARG BLOK POINTER 


RMS 


| O2é 
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i SERVNAM,MSG,OPTN,RB 


.1F NB <PSET2> 
yt SERVNAM,MSG,OPTN,R2 


E 

-1F NB <PSET3> 
SERVCALL SERVNAM,MSG,OPTN,R3 
~ENDC 

.1F NB <PSET4> 
SERVCALL SERVNAM,MSG,OPTN,R4 
»ENDC 

IF NB git 
SERVCALL SERVNAM,MSG, OPTN, RS 
~ENDM 
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; ISSUE SERV LOOP FOR 1ST ARG 

; ISSUE SERV CALLS TO TEST 2ND.. 
; ISSUE SERV CALLS TO TEST 3RD... 
; ISSUE SERV CALLS TO TEST 4TH... 


; ISSUE SERV CALLS TO TEST STH... 


; END OF ‘TESTSERV' DEFINITION 


: 
FERRARA AAR EEA ARERR AEE 
PPA RARRRRRARA RASA SAR SALSA EASES A SASSER EES ASRS SEE EEE E ES ER ERR A ER EERE R SEER ES ERC e as Y 
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«MACRO TEST SERV EXEC 

“REPT  GRPTTOTA 

TCG_NO = TCG_NO+ INCR TEST CASE GROUP NUMBER 
TCJOMP \TCGTNO ; PERFORM TEST CASE GROUP_INITIALIZATION 
JB TC_ CONTROL ; RUN ALL T.C.°S FOR THIS GROUP 

END 


42 
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$$$: 


: Macro to test 


«NLIST 
. ENDM 


: Macro to test 


«NLIST 
-ENDM 


D 
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TS_CLEANUP 
aK) */ ASSTSTNSS#2 "1p FINAL SERVICE CALL FAIL ? 
TEST_MOD_FAIL,TMb_ADDR ; YES <= INDICATE FAILED IN END MSG 


ie 
#ERROR ,#0,45,MOD_ASG_ CObE ; ADJUST STATUS CODE FOR ERROR 


(SP)+ ; POP TS ADDRESS WHICH WAS pyauee ABOVE 
; RETURN TO TEST -SERV_EXEC M 


for the correct error code return 


«MACRO FAIL_CHECK FAIL_CODE 
LIST MEB 


PUSHL #FAIL_CODE ; push desired failure code 
CALLS #1,W*REG_CHECK ; check all registers for correct content 


MEB 
FAIL_CHECK 


for the correct error code return without printing it 


-MACRO FAIL_CHECKNP FAIL_CODE 
IST MEB 


PUSHL #FAIL_CODE ; push desired failure code 
CALLS #1,W*REG_ CHECKNP ; check all registers for correct content but 
; don't print out the failures 


AEB 
FAIL_CHECKNP 


: Macro to generate a label using the current step number. 
-MACRO nee N 


LIST M 
STP'N 
MOVL #N,W°CURRENT_TC ; save the test case number 
-NLIST ME 
-ENDM LABEL 


: Macro to declare the start of a subtest 
Nt a NEXT_TEST 


LABEL _\STEP 
-LIST MEB 
PUSHL #0 : push a dummy parameter 
CALLS #1,W*REG_SAVE 3; Save the registers 
-NLIST MEB 
-ENDM NEXT_TEST 


: Macro to end a test 


-MACRO TEST_END 
IST MEB 


PUTMSG <W*MOD MSG _CODE,#2,W°TMN ADDR.W*TMD ADDR> ; type ending message 
INSV #1, #STS$V_TNHIB.MSG,41,W™MOD_MSG_CODE ; inhibte printing . 
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mist SEXIT_S W*MOD_MSG_CODE ; exit to the 0.S. 
TENDM TEST_END 
to start a test 
ae TEST_START TEST_NAME 
“LIST ME 
ENTRY TEST_NAME,0 3 entry mask 
.NLIST ME 
STEP=0 
-LIST MEB 
CLRL W*CURRENT_TC ; set initial test step 
SWAKE_S W*TPID i get pid of this process 
SHIBER S 3; undo wake 
SSETPRA_ $ of TEST RO NAME _D ; set aprocess name 


«NLIST 
-ENDM 


O° MOB MSG-PRINT erin test module begin msg 

ROVAL W*TEST_MOB_SUCC,W*TMD ADDR assume en will show success 

INSV WSUECESS. 40,43, 0*MOD _ASG_C ob: ; adjust status code for success 
PUSHL @# ; push a ~Gumay parameter 

CALLS #1,W*REG_SAVE ; save the registers 


MEB 
TEST_START 
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